
recode windenv 6=.
recode windecon 6=.


drop if condition2==.
**descriptive

graph bar, over(windenv)
graph bar, over(windecon)
graph bar, over(supportwind)


graph bar, over(windenv) by(condition2)
graph bar, over(windecon) by(condition2)
graph bar, over(supportwind) by(condition2)



**Table 1


 
**Do you support or oppose the increased use of wind energy? 
 reg windenv i.condition2
 reg windecon i.condition2

 reg supportwind i.condition2
 test (_b[2.condition]= _b[4.condition])

 
 

**TABLE 2

capture drop condenv condecon windeconprime windenvprime
gen condenv = condition2
recode condenv 1=0 2=0  3=0 4=1 5=1 0=0
gen condecon = condition2
recode condecon 1=0 2=1  3=1 4=0 5=0 0=0


gen windeconprime = windecon*condecon
gen windenvprime = windenv*condenv


reg supportwind windecon windenv 

reg supportwind windecon windenv condecon condenv 
reg supportwind windecon windenv condecon condenv windeconprime windenvprime




**Balance/demographics per treatment
drop if age==17
bysort condition2: summ age
oneway age condition2


bysort condition2: summ female
oneway female condition2
logit female i.condition2

bysort condition2: summ white
oneway white condition2
logit white i.condition2



bysort condition2: summ ed
ologit ed i.condition2
oneway ed condition2
oneway ed condition2 
recode income 8=.
bysort condition2: summ income
oneway income condition2

bysort condition2: summ pid
oneway pid condition2 

bysort condition2: summ ideol
oneway ideol condition2





bysort condition2: summ *WF

oneway livenearWF condition2
oneway seenWF condition2

logit livenearWF i.condition2
logit seenWF i.condition2


bysort condition2: tab1 south northeast midwest west

logit south i.condition2
logit northeast i.condition2
logit midwest i.condition2
logit west i.condition2


**full models for Table 1

**Do you support or oppose the increased use of wind energy? 
 reg windenv i.condition2 
  reg windenv i.condition2 age female white ed income pid ideol *WF  south midwest northeast 
 test (_b[2.condition]= _b[4.condition])
 test (_b[1.condition]= _b[2.condition])
  test (_b[3.condition]= -_b[4.condition])


 
 reg windecon i.condition2 
 reg windecon i.condition2  age female white ed income pid ideol *WF south midwest northeast 
 test (_b[2.condition]= _b[4.condition])
 test (_b[1.condition]= _b[2.condition])
  test (_b[2.condition]= -_b[5.condition])


 
 reg supportwind i.condition2
 reg supportwind i.condition2   age female white ed income pid ideol *WF south midwest northeast

 test (_b[2.condition]= -_b[3.condition])
 test (_b[2.condition]= _b[4.condition])
 test (_b[2.condition]= -_b[5.condition])
 test (_b[3.condition]= -_b[4.condition])
 test (_b[3.condition]= _b[5.condition])
 test (_b[4.condition]= -_b[5.condition])
 
 
  **prime
  **TABLE 2

capture drop condenv condecon windeconprime windenvprime
gen condenv = condition2
recode condenv 1=0 2=0  3=0 4=1 5=1 0=0
gen condecon = condition2
recode condecon 1=0 2=1  3=1 4=0 5=0 0=0


gen windeconprime = windecon*condecon
gen windenvprime = windenv*condenv


reg supportwind windecon windenv 

reg supportwind windecon windenv condecon condenv 
reg supportwind windecon windenv condecon condenv windeconprime windenvprime


reg supportwind windecon windenv age female white ed income pid ideol *WF south midwest northeast

reg supportwind windecon windenv condecon condenv age female white ed income pid ideol *WF south midwest northeast
reg supportwind windecon windenv condecon condenv windeconprime windenvprime age female white ed income pid ideol *WF  south midwest northeast



 
